0 DATA120,169,1,141,26,208,169,127,141,13,220,169,27,141,17,208,169,33,141,20,3
1 DATA169,192,141,21,3,169,51,141,18,208,88,96,120,169,1,141,25,208,162,0,188,0
2 DATA193,136,208,253,189,0,194,141,32,208,141,33,208,232,224,199,208,236,169,0
3 FORA=49152TO49258:READB:DATA160,10,136,208,253,141,32,208,141,33,208,76,49,234
4 POKEA,B:NEXT:Z=49408:POKEZ,6:FORA=Z+1TOZ+200:POKEA,8:NEXT:FORA=Z+7TOZ+207STEP8
5 POKEA,1:NEXT:HE=512:ME$="1.SAVE  2.LOAD  3.EDIT  4.CLEAR  5.QUIT ":GOTO7
6 FORA=Z+256TOZ+HE:POKEA,.:NEXT:PRINT"PRESS ANY KEY ":POKE198,.:WAIT198,1:RETURN
7 PRINT"[147]"TAB(10)"***<[210][193][211][212][197][210]-[205][193][211][212][197][210]>***"SPC(9)"BY [205]ARTIN [211]CHOENBERGER [202]AN.90"
8 POKE53280,.:POKE53281,.:PRINTME$:INPUT"";W:ONWGOSUB10,9,13,6,12:GOTO7
9 INPUT"FILENAME";F$:F$=LEFT$(F$,12)+".RAS":LOADF$,8,1:RETURN:DATA120
10 INPUT"FILENAME";F$:F$=LEFT$(F$,11)+".RAS":POKE174,.:POKE175,195
11 POKE193,.:POKE194,192:F$=F$:SYS57812F$,8:SYS62954:RETURN:DATA173,17,208,41
12 F=1:INPUT"PROGRAMM BEENDEN(J/N)";JN$:IFJN$="J"THENPOKE0,0:SYS0:DATA128,201
13 V=53248:POKEV+21,1:POKE2040,11:POKEV,24:POKE704,255:Y=51:IFF=1THENF=0:RETURN
14 SYS49152:PRINT" [146]":FORA=706TO766:POKEA,.:NEXT:POKEV+39,1:CC=1:POKE705,255
15 SC=(SC+1)AND255:POKEV+39,SC:J=PEEK(56320):IF(JAND1)=0ANDY>51THENY=Y-1:DATA128
16 IF(JAND2)=0ANDY<250THENY=Y+1:DATA240,247,169,49,141,20,3,169,234,141,21,3,162
17 IF(JAND16)=0THENPOKEZ+256+PEEK(V+1)-52,CC:IFFL=1THENFL=0:POKEV+21,.:RETURN
18 IF(JAND8)=0THENCC=(CC+1)AND15:POKE55296,CC:DATA255,142,13,220,232,142,26,208
19 POKEV+1,Y:IFPEEK(198)<>0THENFL=1:GETG$:IFG$="_"THENPOKEV+21,.:SYS49229:RETURN
20 GOTO 15:DATA96:REM"FUER [205]&[212] :        [210]ASTER-[205]ASTER [214]1 BY [205]ARTIN [211]CHOENBERGER